﻿Imports System.Xml

Namespace Stories
	Public Class XmlInstruction
		Inherits Child

		Public Overrides Function ToString() As String
			Return Me.Self
		End Function

		Public Property Self As String

		Public Property Target As String

		Public Property Data As String

		Public Shared Function ReadXml(reader As XmlReader) As XmlInstruction
			Dim xi As New XmlInstruction()

			xi.Self = reader.GetAttribute("Self")
			xi.Target = reader.GetAttribute("Target")
			xi.Data = reader.GetAttribute("Data")

			Return xi
		End Function
	End Class
End Namespace